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-1IDENT /1-004/ 3; File: OTSCVTTOL.MAR Edit: SBL1004 


| euononesorcorocceororcnorercnensoeseconooonnneesnenooenenesoesenessoreoneses 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS RESERVED. 


OF TWARE i$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH at a AND WITH THE 
ION OF THE oe E gery gith NOTICE. THIS SOFT ARE OR ANY OTHER 
THEREOF MAY NOT ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE fo” AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eee eokat ite.” NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS * 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 
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FACILITY: Language independent support Library 
"ABSTRACT: 
This module contains routines to convert text representations of 


integers to longword (or other) values. The text can be in 
hexadecimal, octal or binary bases. 


VERSION 1 
HISTORY: 


AUTHOR: 
Steven B. Lionel, 21-Feb-1979: Version 1 


; MODIFIED BY: 


NAME WN SO OO NAME WIN 9 OD NAME WIN @§ O ODNAU EW OOONOUNE 


PPLE ES 


6 11 
8001 Seemed eterna "SSEe=1586 19:19:55 ETante.sacdorsevtrou.man:1 8 «By 


-SBTTL HISTORY 


Edit History for OTSSCVT_TO_L 


1-001 - pre inet. un somite repr ite. Eeplacing FORSCNV_IN_O and 
1- ; ~ Aga Orssey WT TB.L. SBL 6-Nov-1980 
- Fix undetected” Pease bug. SBL 4 1982 
4 = Give error t grarester greater omg 127, SPR 11-52485 
SBL 29-Dec-198 
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SOC 
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0000407C¢ 
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-SBTTL DECLARATIONS 
; INCLUDE FILES: None 
; EXTERNAL SYMBOLS: 


-DSABL GBL 
-EXTRN OTS$_INPCONERR 


MACROS: None 


PSECT DECLARATIONS: 


: EQUATED SYMBOLS: 
REGMASK = “M<IV,R2,R3,R4,R5,R6> 


OWN STORAGE : 


“ 
& 
— 
m 


00000000 Vw 
SSSR es SS See S sat RON SS SSS FER 


-BYTE 0 
-BYTE 1 
-BYTE ¢ 
-BYTE 
-BYTE 4 
-BYTE 5 
-BYTE $ 
1 BYTE 
1 -BYTE 8 
1 § -BYTE 
i -BYTE <1 
104 -BYTE -=1 
105 -BYTE -=1 
1 -BYTE 1 
1 -BYTE -=1 
1 -BYTE =1 
1 -BYTE =1 
1 9 -BYTE 10 
11 BYTE 11 
1 -BYTE \¢ 
11 BYTE 1 
114 BYTE 14 
115 BYTE 15 
116 
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oe 


3 vores undefineds from being 


3 global. 
5 Input conversion error 


vi 


ss 


-PSECT _OTSSCODE PIC, SHR,LONG, EXE ,NOWRT 


; Register save mask 


; Fonverts characters to value 


character 
character 
character 
character 
character 
character 
character 
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-SBTTL OTSSCVT_TO_L = Convert text (octal) to long 


3++ 

3 FUNCTIONAL DESCRIPTION: 

fenverte a text representation of a base 8 value to internal 

orm. The usual result of this routine is one longword, but 

eee any length (that is a multiple of 8 bits) may be 
uced. 


The valid characters for base 8 conversion are -space- and 
"0"' through ‘7°’. No sign is permitted. 


For compatibility with previous releases, the name 
FORSCNV_IN_O is equivalent to OTSSCVT_TO_L. 
CALLING SEQUENCE: 
status.wic.v = OTSSCVT_TO_L (in_string.rt.ds, value.wx.r 
» byte_count.ril.v 
- caller_flags.rl.vJJ 
INPUT PARAMETERS: 


in string =4 


Input string by descriptor 
byfe_count = 12 3 Sat 4 


Optional count of bytes in 
value, defaults to 4 if 
omitted or zero. 
caller_flags = 16 ° 

v_GN = 0 If set, blanks are ignored; 
otherwise blanks are zeroes. 


Pete Se Se Ge Ge te 


IMPLICIT INPUTS: None 
OUTPUT PARAMETERS: 


BRIO OODNA NE WINI OOOO NAN EWN @ SO OO NAUE LP ( QWONA NEW" OO 


PRLPP DPN NNN III EB BES ES ES EB EVAN ADA ADA LL IO IOI III IOI 


a a at at a a a = ss 2 a ts hh a st tt 


Se >  D | 
ee ae a ee ee ee a ee a a ee ee a ee a a a 


00000008 value = 8 ; Output value by reference. 

; Length is dependent on 
; byte_count. 

: IMPLICIT OUTPUTS: None 

3; COMPLETION CODES: 

; S$S$_NORMAL - Successful completion 

3 OTSS_INPCONERR = Input conversion error. Either an illegal 

: character or overflow happened. 

: SIDE EFFECTS: None 

; FORSCNV_IN_O F tibilit 
$3 :; Forec a 
407C if “,ERTRY OTSSCVT_TO_L, REGMASK — 4 
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text to integer 


L = Convert text (octal) to | 


3 8) 4) a 5 8 4 5 ts sd 2 a 8 a 8 ts ss tt 
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BSBW 
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SETUP 


GET_CHAR 
x1T_O 


Ao, #8 


OR 
RE #i, (R3) 


OR 
RE #2, (R3) 
R4, #3, (R3) 
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Get parameters and set up 
registers. 
a character 
t if done 
Skip if zero 
Invalid character? 
so, error 
Is there room for this digit? 


es 
. lor 2 bits left? 
or less is error 


bits 
bit - digit 1? 
. error 

Insert bit 


ong nue 
bits -less than 4? 
. error 
Insert bits 
ont inue 
Insert bits 
Increment bit position 


Decrement bit counter 
Loop back for more digits 


} 


4 


text to inte 
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UEP —O0e 
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-SBTTL OTSSCVT_TZ_L - Convert text (hex) to long 


++ 
FUNCTIONAL DESCRIPTION: 


—_— 


onverts a text representation of a base 16 value to internal 
orm. The usual result of this routine is one son word, but 


values of any length (that is a multiple of 8 b 
produced. 


ts 


The valid characters, for base 16 conversion are -space- 


"0" through, "9 Shrough "Ts 
Lower case ‘‘a’’ through ‘‘f’’ are acceptible. 


For conpe tot) ity with previous releases, the name 
FORSCNV_IN_Z is equivalent to OTSSCVT_TZ_L. 


CALLING SEQUENCE: 


No sign is permitted. 


status.wic.v = OTSSCVT_TZ_L CPr.pterng.rt 68, value.wx.r 
V 


. byte_count.r 


, callér_flags.rl.vJJ 


INPUT PARAMETERS: 


in_stri = 4 
byte.count = 12 


omitted or zero. 
caller_flags = 16 Optional. 
v_6N = 


; IMPLICIT INPUTS: None 
; OUTPUT PARAMETERS: 
value = 8 


byte_count. 


; IMPLICIT OUTPUTS: None 
; COMPLETION CODES: 
= Successful completion 


Input string by descriptor 
Optional count of b 
value, defaults to 


If set, blanks are ignored; 
otherwise blanks are zeroes. 


Output value by reference. 
Length is dependent on 


SS$_NORMAL 
OTSS_INPCONERR = Input conversion error. Either an illegal 


character or overflow happened. 
; SIDE EFFECTS: None 
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FORSCNV_IN Z:: ; For compatibility 


Z:: 
-ERTRY OTSSCVT_TZ_L, REGMASK 


OTSRS VITO. 


0053 
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6 
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0029 
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SETUP 
GET oo 
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Get parameters and set up 
Get char 
t 


Skip if zero 

Is Enere’ rece for this digit? 
No, must be multiple of 4! 
Insert bits 

Increment bit position 
Decrement i t counter 

Loop back for more digits 
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mo ds 


M11 
aagge YT r§ CVE Tet = "Conver “text (binary) to yates yi 99:79: 8 CTGRTL. SREDOTSCVTTOL MAR: 1 a (b 
44: ¢ -SBTTL OTSSCVT_TB_L = Convert text (binary) to long 
i 
JUS 
UE 
JUS 


p++ 
; FUNCTIONAL DESCRIPTION: 


onverts a text representation of a base 2 value to internal 

orm. The usual roms of this routine is one yonguord, but 

noe sed any length (that is a multiple of 8 bits) may be 
uced. 


J0E : ; The valid characters for base 2 conversion are -space-, 
DOE : "0" and ‘1. No sign is permitted. 
00 3 ; CALLING SEQUENCE: 
008 35 ; status.wlc.v = OTSSCVT_TB_L (in_string.rt.ds, value.wx.r 
UC ; fe byte_count.rl.v 
d08 ; , caller_flags.rl.vJJ 
DOE : : INPUT PARAMETERS: 

00000004 008 5° in_string = 4 : Input string by descriptor 

0000000C 008 $ byte_count = 12 : Optional count of bytes in 
N08 3 value, defaults to 4 if 

90000010 608 09 aller_flags 16 imu. 
DUE Cc = P4 ° 

80000000 008 10 V_BN . = 0 3 If set, blanks are ignored; 
tt 1} 3 otherwise blanks are zeroes. 
tt 1§ : IMPLICIT INPUTS: None 
008 15 : OUTPUT PARAMETERS: 
UE P} 

00000008 tt 13 value = 8 ; Output value by reference. 
it 18 : Length Ss copendent on 
008 0; sinister 
008 1 ; IMPLICIT OUTPUTS: None 
JUG ry 
0C 5 ; COMPLETION CODES: 
JUS P 
00g 5; SS$_NORMAL - Successful completion 
Ng § : OTSS_INPCONERR = Input conversion error. Either an illegal 
4: : character or overflow happened. 
008 5 > SIDE EFFECTS: None 
UF 4 
“1e). pid 
pons $5 

407¢ 008 4 .ENTRY OTSSCVT_TB_L, REGMASK 

UF 

0030 30 0084 § BSBW SETUP 3; Get parameters and set up 
0087 ; registers. 

0066 ; 0087 8 10$ BSBW GET_CHAR 5 Get a ghorecter 

6 D0BA BLSS EXIT _8 : Exit if done 
OE 13 008C 40 BEQL 0 : Skip if zero 


—s 
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RO, #1 : Illegal character? 

ERROR_B 3 Yes 

6 ; Is there room for this digit? 
ERROR_B 3 No. 

RO, R&, #1, (R3) : Insert bit 

RG : Increment bit position 

Re 3 Decrement bit counter 

10$ 3; Loop back for more digits 
EXIT 

ERROR 
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RROR: 
008 30 AC ; 


0 BSBW = SETUP ; Te re- h 
50 00000000‘ 8F b0 AF ore zero the value 


MOVL #OTS$_INPCONERR, RO :; Error co 
RET 3; Return with failure 


Local Subroutines 6-SEP-1984 LIBRTL. SRE REIO TSCVTTOL.MAR; 1 
“ 34 -SBTTL Local Subroutines 
A § tag 
- i : EXIT = Exit successfully 
A ge 
A EXIT: 
50 01 00 A 64 MOVL #1, RO 3; Success status code 
04 AB 65 RET ; Return 
AC $6 
AC 3* 
AC o8 3; ERROR - Exit with error 
AC $3 3° 
4 
M 
74 
75 
76 


eee obe Siiteies HOTORTe. CaesorecuTsoL MARS 1 


zz | 


; Convert text to integer 


P 11 
Local Subroutines age 


(8) 


AS + al 


3+ 
3; SETUP = Perform common initialization 


3 1. eeteratae if optional parameters are present. Set defaults 
4 3 ¢: Zero the value. 
4; - Set up registers as follows: 
7 $3 Ri - count of characters in string. 
7 § 3 Re - Points to one byte beyond string. 
7 : RS - Address of value. 
7 3 3 R4 = Set to zero, indicates current value bit offset. 
; ; RS - Flag re ister, set to value of caller_flags. 
f ay : R6 = Count of bits in value. 
7 392° 
087 38 SETUP: 
38 04 9 7 94 MOVL #4, R6 ; Initial size is 1 longword 
0 ef 4 : 2 cry (Ab), #<byte_count/4> ; Is byte count present 
3 No 
OC AC 0 OBE 3 TSTL oxte.count (AP) ; Is it zero? 
046~—C1 C2 4 BLEQ 1 : Yes (or neg), use default 
56 5 AC 4 0C4 9 MOVL byte_count(AP), R6 ; Get byte count 
50 8 AC 3 C8 400 10$: MOVL value(AP), : Get value address 
60 56 00 6€ 00 C Ob ? 1 MOVCS #0, (SP), #0, R6, (RO) ; pall “es zero 
3 ets zero 
56 56 O03 78 80 208 ASHL #3, R6, R6 3 R6 Sets bit count 
5 04 BC 7D sit 404 MOVa @in_string(AP), R1 ; R1 gets character count 
ODA 405 ; R2 gets pointer 
51 3} 3¢ BRDA 40 MOVZWL R1, R1 ; Clear all but count 
52 1 CO O0DD 40 ADDL R1, R2 3; Position pointer to 1 beyond 
Q0OEO 408 3; last character. 
53 08 af 4 OOe4 r+ aon. vaiue(AP), R3 3 zeiie geerees 
3 offse 
04 6c 4 433 $13 ve sng)? #<caller_flags/4> ; Are caller_flags present? 
3 No 
55 10 AC 00 OOEB 418 MOVL caller_flags(AP), R5 ; Set up caller flags 
0S OOEF 414 20$: RSB : Return 


D 12 
eager ofS Ea sels ee ESERIES QQHTOEES UNM. SRESB TPB. ans 28° 


: 2 : cer CHAR = Get a character 
F 419 ; ooks at the ne b character in the input string, right to 
F 420 ; eft. If V_BN is set we arate, is a blank: it is i pores 
F & 3 and another character read. V_BN is not set and 
: 2 5 character is a blank, it is c aaenl to zero. 
F 426; The character is spot yg to an actual value from 0 to 15. 
: ? 33 If the character is not or A-F, it branches to ERROR. 
F 4 $ 3 The value obtained is moved to RO. If no characters remain, 
F 4 3 3 RO is set to -1. Upon exit, the condition codes are set such 
OF 2 4 3 that branches depending on the value in RO can be made. 
| eS 
OF 4 § GET_CHAR: 
1 o5 oF 4 TSTL R1 3; Any characters left? 
i oe F 434 BLEQ EOS : No, exit with -1 
50 2 OA FE = 435 MOVZBL <-(R2), RO ; Put character in RO 
7) a F774 $ DECL : Decrement count 
20 50. (91 F9 & CMPB RO, #*A/ / 3; Is it a blank? 
3 is FC 438 BNEQ 3 No if not equal 
EE 55 FA A} 439 BBS #V_BN, RS, GET_CHAR ; Ignore if V_BN set 
50 D4 01 440 CLRL RO ; Blanks are zero 
05 0104 441 RSB ; Exit with ero 
50 30 4 105 442 10$: SUBL #*a/0/, RO ; Subtract ' 
21 19 0108 44 BLSS ERROR G : Error if n 
16 0 D1 10A 444 CMPL R #24A/F /=*A/0/> ; Greater thes a ee 
of 15 0100 445 BLEQ ; Ok if not greater 
50 ! 10F £68 SUBL #<*A/a/=-*A/A/>, RO :; Try lower case 
1 1 112 44 BLSS ; Error if between ‘'F'' and ‘'P’ 
11 12 2! 4} 238 gat RO, #2°A/A/-*A/0/> : In eotueen "0" and ‘‘a''? 
3; Yes, erro 
16 «= § D1 0119 450 CMPL RO, #2°A/F/=*A/0/> : Greater then ——y 
OD 14 O11C 451 BGTR ERROR_G ; Yes, error 
50 FEDD creo 11E $26 20$: MOVB TABLECROJ, RO 3; Get actual value 
0 1 124 $3 BLSS ERROR_G ; Error if negative 
05 : $ ? : RSB : Exit with condition codes set 
127 436 EOS: 
50 01 ff 127. 45 MNEGL #1, RO ; End of string 
18 i38 Sate 
10B 460 ERROR_G: 
FF7E 31 0128 $9) BRid ERROR ; Illegal character 
12E 4 ¢ 
12—E 46 
12E 464 END 
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dem ae rename cen rrn$ 


! Psect synopsis ; 


rea nee narra anron 


PSECT name Allocation PSECT No. Attributes 


- ABS. 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LC 
-OTSSCODE QOOOO12E ¢ 302.) O1¢ 1.) PIC USR CON REL LC 
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Performance indicators ! 


; 
¢ ence mere son wne oem ae anee ah 


L NOSHR NOEXE NORD NOWRT NOVEC BYTE 
L SHR EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 


Initialization 9 :00: 
ommand processing " :00: 


Pass 1 :00: 
Puss ¢ sable sort 200: 


:03.11 
:00:03.94 


:01 
Assembler run totals 324 :00: 


Tee work ing $ t Limit was 1050 pages. 

6504 bytes (15 pages) of virtual memory were used to buffer the intermediate 53°. 

There were 10 pages of s l table space allocated to hold 25 non-local and 12 local symbols. 
464 source Lines were read in Pass 1, produc tng 17 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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OTSSCYTTOL ; Convert text to integer 
Hef Macro Run Statistics ° 
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! Macro Library statistics ! 


toewmeeewmerrceereaasneceeccea soad 


Macro Library name Macros defined 
-$255S0UA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
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